home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / tcp / hserv.lha / hserv / cgi-bin / gmtfiledate.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-24  |  715b  |  24 lines
  1. /* GMTFileDate.rexx */
  2.  
  3. parse arg file
  4.  
  5. call GetDate("NOW","GMT")
  6. date="NOW"
  7. if GetFileDate(file,"FD") then do
  8.     call date2gmt("FD")
  9.     if CompareDates("NOW","FD")<0 then date="FD"
  10. end
  11.  
  12. say "Content-Type: text/html"
  13. say
  14. say translateDate(formatdate(date,"%m %w %d %Y %H:%M:%S GMT"))
  15. exit
  16. /***************************************************************************/
  17. translateDate: procedure
  18.     d.0="Sun";d.1="Mon";d.2="Tue";d.3="Wed";d.4="Thu";d.5="Fri";d.6="Sat"
  19.     m.1="Jan";m.2="Feb";m.3="Mar";m.4="Apr";m.5="May";m.6="Jun";m.7="Jul";m.8="Aug";m.9="Sep";m.10="Oct";m.11="Nov";m.12="Dec"
  20.     parse arg i j rest
  21.     i=i%1
  22.     return d.j"," m.i || rest
  23. /***************************************************************************/
  24.